mob/proc/pickname(var/race,var/gender)
	var/firstname
	var/lastname
	var/full
	var/gender2 = lowertext(gender)
	if(race == "human")
		if(gender2 == "male")
			firstname = pick(humanfirstmale)
		else
			firstname = pick(humanfirstfemale)
		lastname = pick(humanlastname)
		full = "[firstname] [lastname]"
		return full
	if(race == "orc")
		if(gender2 == "male")
			firstname = pick(orcfirstmale)
		else
			firstname = pick(orcfirstfemale)
		lastname = pick(orclastname)
		full = "[firstname] [lastname]"
		return full
	if(race == "kobold")
		if(gender2 == "male")
			firstname = pick(orcfirstmale)
		else
			firstname = pick(orcfirstfemale)
		lastname = pick(orclastname)
		full = "[firstname] [lastname]"
		return full
	if(race == "spider")
		if(gender2 == "male")
			firstname = pick(orcfirstmale)
		else
			firstname = pick(orcfirstfemale)
		lastname = pick(orclastname)
		full = "[firstname] [lastname]"
		return full
	if(race == "goblin")
		if(gender2 == "male")
			firstname = pick(orcfirstmale)
		else
			firstname = pick(orcfirstfemale)
		lastname = pick(orclastname)
		full = "[firstname] [lastname]"
		return full
	if(race == "devourer")
		if(gender2 == "male")
			firstname = pick(orcfirstmale)
		else
			firstname = pick(orcfirstfemale)
		lastname = pick(orclastname)
		full = "[firstname] [lastname]"
		return full

var/humanfirstmale = dd_file2list('data/humanname1.txt')
var/humanfirstfemale = dd_file2list('data/humanname2.txt')
var/humanlastname = dd_file2list('data/humanname3.txt')


var/orcfirstmale = dd_file2list('data/orcname1.txt')
var/orcfirstfemale = dd_file2list('data/orcname2.txt')
var/orclastname = dd_file2list('data/orcname3.txt')
////////////////////////////////////////////////
/////////Credits to whoever did these below/////
///////////////////////////////////////////////
/proc/dd_file2list(file_path, separator)
	var/file
	if(separator == null)
		separator = "\n"
	if(isfile(file_path))
		file = file_path
	else
		file = file(file_path)
	return dd_text2list(file2text(file), separator)

/proc/dd_text2list(text, separator, var/list/withinList)
	var/textlength = length(text)
	var/separatorlength = length(separator)
	if(withinList && !withinList.len) withinList = null
	var/list/textList = new()
	var/searchPosition = 1
	var/findPosition = 1
	while(1)
		findPosition = findtext(text, separator, searchPosition, 0)
		var/buggyText = copytext(text, searchPosition, findPosition)
		if(!withinList || (buggyText in withinList)) textList += "[buggyText]"
		if(!findPosition) return textList
		searchPosition = findPosition + separatorlength
		if(searchPosition > textlength)
			textList += ""
			return textList
	return